home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed50.d64 / drill - avoir (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  151 lines
  1. 5 POKE53272,23:POKE53280,0:POKE53281,0
  2. 10 G$="1.01"
  3. 15 PRINT"[147][153]        [198]RENCH  [196]RILL   - "
  4. 20 PRINT"[145]"TAB(28)G$
  5. 25 PRINT"                       [146]
  6. 30 [153]"                 AVOIR WAIT
  7. 35 PRINT"                       [146] ":GOSUB2000:GOSUB2560
  8. 40 PRINT"[154]          [201]NSTRUCTIONS  ([217]/[206])[159]"
  9. 45 GETR$:IFR$<>"Y"AND R$<>"N"THEN 45
  10. 50 IFR$="Y"THEN 200
  11. 55 IF R$="N"THEN 380
  12. 110 PRINT"[147]        [193] [210][197][214][201][197][215] OF AVOIR
  13. 120 [153]"                    *****
  14. 130 PRINT"    [211]INGULAR        [208]LURAL
  15. 140 [153]"    ----------      ----------
  16. 150 PRINT:PRINT"    J'AI            NOUS AVONS
  17. 160 [153]:[153]"    TU AS           VOUS AVEZ
  18. 170 PRINT:PRINT"    IL/ELLE A       ILS/ELLES ONT
  19. 180 [141]1000
  20. 185 [137]380
  21. 200 [153]"LOAD  (null)HERE ARE (null)VAL(null) QUESTIONS IN THIS         EXERCISE.":[141]2000
  22. 210 [153]"  (null)OU MUST DECIDE WHICH WORD FROM THE     LIST BEST FITS THE BLANK.
  23. 240 GOSUB1000
  24. 250 PRINT"[147]  [205]AKE YOUR CHOICE BY PRESSING            A, B, C OR D ";
  25. 260 PRINT"AND THEN PRESSING THE      <[210][197][212][213][210][206]> KEY."
  26. 280 PRINT"":GOSUB1000
  27. 290 PRINT"[147]  [210]EMEMBER .....
  28. 300 [153]"  (null)HE COMPUTER CAN'T SHOW ANY ACCENTS     EVEN THOUGH THEY ";
  29. 310 [153]"(null)LEFT$(null)(null)(null)STR$ BE THERE.":[141]2005
  30. 320 [153]"  RIGHT$'M JUST A DUMB OLD ATNNGLAIS COMPUTER.WAIT"
  31. 330 [141]1000
  32. 335 [153]"LOAD   RIGHT$F YOU NEED REVIEW WHILE YOU
  33. 340 PRINT"   AT ANY TIME JUST ";
  34. 345 PRINT"PRESS 'H' (HELP!)":GOSUB2000
  35. 350 PRINT"      [217]OU HAVE A CHOICE:":GOSUB2000:GOSUB2560
  36. 355 PRINT"          1.  [210]EVIEW
  37. 360 [153]"          2.  (null)TART
  38. 365 GETR$:IFR$<>"1"ANDR$<>"2"THEN365
  39. 370 IFR$="1"THEN110
  40. 375 IFR$="2"THEN 380
  41. 380 EE=0:F=0:HH=0
  42. 385 XX=10
  43. 390 FORI=1TOXX
  44. 400 READQ$(I),A1$(I),A2$(I),A3$(I),A4$(I),A$(I),AA$(I)
  45. 410 NEXTI
  46. 420 FORJ=1TO5
  47. 430 READF$(J):NEXTJ
  48. 440 FORI=1TO10
  49. 450 V=0:E=0
  50. 460 PRINT"[147]"Q$(I)""
  51. 470 PRINT,"A. "A1$(I),"C. "A2$(I)
  52. 480 PRINT,"B. "A3$(I),"D. "A4$(I)
  53. 490 PRINT"[153]  [209]UELLE LETTRE VEUX-TU":GOSUB2560
  54. 495 PRINT"                 ";
  55. 500 INPUTB$:IFB$=" "THEN500
  56. 510 IFB$="H"THEN920
  57. 520 IFB$=A$(I)THEN710
  58. 530 GOTO840
  59. 540 NEXTI
  60. 550 PRINT"[147]      [200]ERE ARE YOUR RESULTS: ":GOSUB2000:GOSUB2560
  61. 560 PRINT"  [217]OU GOT "10-EE" OF THE TEN QUESTIONS
  62. 570 [153]"  RIGHT ON THE FIRST TRY."
  63. 580 [153][163]1):[153]F" OF THE QUESTIONS WERE MISSED         AND   ... COMPLETELY!
  64. 600 IFHH=0GOTO630
  65. 610 PRINT"  [217]OU NEEDED THE HELP PAGE ONCE":GOTO630
  66. 620 PRINT"  [217]OU NEEDED THE HELP PAGE "HH" TIMES."
  67. 630 PRINT:PRINT"    *************************
  68. 640 [153]:[153]"  (null)ECORD YOUR RESULTS NOW .......
  69. 650 GOSUB1000
  70. 660 GOTO3000
  71. 700 :
  72. 710 C=INT(RND(1)*5)+1
  73. 720 PRINT"[145]                        ":GOSUB2500
  74. 730 PRINT"[158] "F$(C)
  75. 760 GOSUB800
  76. 770 FORL=1TO1000:NEXTL
  77. 780 PRINT"":GOSUB1000
  78. 790 GOTO540
  79. 800 FORL=32908TO32902STEP-1
  80. 810 POKEL,32:NEXTL
  81. 820 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"AA$(I)
  82. 830 RETURN
  83. 840 IFV>1THEN890
  84. 850 IFE<1THENEE=EE+1
  85. 860 E=E+1:PRINT"[150]       [206]ON.  [197]SSAYEZ ENCORE":V=V+1:GOSUB2530
  86. 870 FORK=1TO1000:NEXTK
  87. 880 GOTO460
  88. 890 F=F+1:PRINT"[150]      [206]ON.  [195]'EST - - "AA$(I)" - - ":GOSUB2530
  89. 900 GOSUB1000
  90. 910 GOTO540
  91. 920 PRINT"[147]      AVOIR  (TO HAVE)
  92. 930 [153]"   (null)INGULAR(null)LURAL
  93. 940 PRINT"   --------       ------
  94. 950 [153]:[153]"    MID$'AI(null)OUS AVONS
  95. 960 PRINT:PRINT"    [212]U AS[214]OUS AVEZ
  96. 970 [153]:[153]" RIGHT$L/VALLLE A    RIGHT$LS/VALLLES ONT  ":HH[178]HH[170]1
  97. 980 [141]1000
  98. 990 [137]460
  99. 1000 [141]2000:[141]2560
  100. 1005 [153]"CONT       (null)RESS <(null)(null)ATNLENVAL> TO CONTINUE OPEN"
  101. 1010 [161]G$:[139]G$[179][177][199](32)[167]1010
  102. 1020 [142]
  103. 1030 [141]2000:[141]2560
  104. 1035 [153]"CONT  (null)RESS <(null)(null)ATNLENVAL> TO  RESTART WAITOPEN"
  105. 1040 [161]G$:[139]G$[179][177][199](32)[167]1040
  106. 1050 [140]
  107. 1060 [142]
  108. 1070 [131]"OPEN           RIGHT$L [   ] UN CRAYON",A,AS,ONT,EST,A,"AWAIT"
  109. 1080 [131]"OPEN         (null)OUS [       ] DES DISQUES.",SOMMES,AVONS,ONT,AS,C,"AVONSWAIT"
  110. 1090 [131]"           (null)U [    ] TON DEJEUNER.",AI,AVEZ,A,AS,D,"ASWAIT"
  111. 1100 [131]"  (null)ES ENFANTS [     ] UNE MOTO.",SONT,ONT,AVONS,AS,C,"ONTWAIT
  112. 1110 DATA"           [202]' [    ] FAIM.",A,SUIS,AI,AVEZ,B,"AI[146]"
  113. 1120 DATA"  [204]EUR VOISIN [   ] UNE PISCINE.",A,EST,ONT,SONT,A,"A[146]"
  114. 1130 DATA"         [214]OUS [      ] UN TEST.",AVONS,AS,AVEZ,AVES,B,"AVEZ[146]"
  115. 1140 DATA"     [212]ON PERE [   ] UN RESTAURANT.",A,EST,ONT,AS,A,"A[146]"
  116. 1150 DATA"        [197]LLES [     ] DES BILLETS.",AVONS,ONT,SONT,A,C,"ONT[146]"
  117. 1160 DATA"  [206]OTRE FRERE [   ] UN AVION.",A,EST,AVONS,ONT,A,"A[146]
  118. 1170 [131]BON,C'EST CA,BRAVO,TRES BIEN,FORMIDABLE
  119. 2000 [129]T[178]1[164]1000:[130]T:[142]
  120. 2005 [129]T[178]1[164]2000:[130]T:[142]
  121. 2010 [129]T[178]1[164]3000:[130]T:[142]
  122. 2500 [143] <YES>
  123. 2505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  124. 2510 [151]54296,15:[151]54277,42:[151]54278,250
  125. 2515 [151]54276,23:[151]54273,23:[151]54272,191
  126. 2520 [129]TC[178]1[164]200:[130]:[151]54276,32:[129]TC[178]1[164]250:[130]
  127. 2525 [151]54296,0:[142]
  128. 2530 [143] <NO>
  129. 2535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  130. 2540 [151]54296,15:[151]54277,18:[151]54278,242
  131. 2545 [151]54276,33:[151]54273,4:[151]54272,48
  132. 2550 [129]TC[178]1[164]300:[130]:[151]54276,32:[129]TC[178]1[164]400:[130]
  133. 2555 [151]54296,0:[142]
  134. 2560 [143] <BLIP>
  135. 2565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  136. 2570 [151]54296,7:[151]54277,42:[151]54278,250
  137. 2575 [151]54276,23:[151]54273,23:[151]54272,191
  138. 2580 [129]TC[178]1[164]30:[130]:[151]54276,32:[129]TC[178]1[164]50:[130]
  139. 2585 [151]54296,0:[142]
  140. 3000 [153]"SYSLOAD (null)OU HAVE A CHOICE:
  141. 3010 PRINT" [208]RESS  [208] [146] TO PLAY AGAIN
  142. 3020 [153]" PRESS  (null) WAIT TI RETURN TO THE MENU
  143. 3030 GETR$:IFR$<>"P"ANDR$<>"[208]"ANDR$<>"M"ANDR$<>"[205]"THEN3030
  144. 3040 IFR$="P"THEN RUN
  145. 3045 IFR$="[208]"THEN RUN
  146. 3050 PRINT"[147] [210]ETURNING TO THE MAIN MENU.
  147. 3060 [147]"MENU",8
  148. 3070 [138]
  149. 3080 [128]
  150. 4000 [143] BILL CUMBERLAND  86:04:22<>93:10:22
  151.